home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 February: Tool Chest / Dev.CD Feb 95 / Dev.CD Feb 95.toast / Tool Chest / Interfaces / Universal Interfaces 2.0a3 / Universal AIncludes / Threads.a < prev    next >
Encoding:
Text File  |  1994-11-11  |  5.1 KB  |  298 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        Threads.a
  3. ;
  4. ;    Copyright:    © 1984-1994 by Apple Computer, Inc.
  5. ;                All rights reserved.
  6. ;
  7. ;    Version:    Universal Interfaces 2.0a3  ETO #16, MPW prerelease.  Friday, November 11, 1994. 
  8. ;
  9. ;    Bugs?:        If you find a problem with this file, send the file and version
  10. ;                information (from above) and the problem description to:
  11. ;
  12. ;                    Internet:    apple.bugs@applelink.apple.com
  13. ;                    AppleLink:    APPLE.BUGS
  14. ;
  15. ;
  16.  
  17.     IF &TYPE('__THREADS__') = 'UNDEFINED' THEN
  18. __THREADS__ SET 1
  19.  
  20.  
  21.     IF &TYPE('__ERRORS__') = 'UNDEFINED' THEN
  22.     include 'Errors.a'
  23.     ENDIF
  24. ;        include 'ConditionalMacros.a'                                ;
  25.  
  26.     IF &TYPE('__MEMORY__') = 'UNDEFINED' THEN
  27.     include 'Memory.a'
  28.     ENDIF
  29. ;        include 'Types.a'                                            ;
  30. ;        include 'MixedMode.a'                                        ;
  31.  
  32. kReadyThreadState                EQU        0
  33. kStoppedThreadState                EQU        1
  34. kRunningThreadState                EQU        2
  35.  
  36. ; Error codes have been meoved to Errors.(pah) 
  37. ; Thread environment characteristics 
  38. ; Thread characteristics 
  39. kCooperativeThread                EQU        1 << 0
  40. kPreemptiveThread                EQU        1 << 1
  41.  
  42. ; Thread identifiers 
  43. kNoThreadID                        EQU        0
  44. kCurrentThreadID                EQU        1
  45. kApplicationThreadID            EQU        2
  46.  
  47. ; Options when creating a thread 
  48. kNewSuspend                        EQU        (1 << 0)
  49. kUsePremadeThread                EQU        (1 << 1)
  50. kCreateIfNeeded                    EQU        (1 << 2)
  51. kFPUNotNeeded                    EQU        (1 << 3)
  52. kExactMatchThread                EQU        (1 << 4)
  53.  
  54. ; Information supplied to the custom scheduler 
  55. SchedulerInfoRec         RECORD    0
  56. InfoRecSize                 ds.l    1
  57. CurrentThreadID             ds.l    1
  58. SuggestedThreadID         ds.l    1
  59. InterruptedCoopThreadID     ds.l    1
  60. sizeof                     EQU    16
  61.                         ENDR
  62.  
  63. ;
  64. ;    The following ProcPtrs cannot be interchanged with UniversalProcPtrs because
  65. ;    of differences between 680x0 and PowerPC runtime architectures with regard to
  66. ;    the implementation of the Thread Manager.
  67. ; 
  68. ; Prototype for thread's entry (main) routine 
  69. ; Prototype for custom thread scheduler routine 
  70. ; Prototype for custom thread switcher routine 
  71. ; Prototype for thread termination notification routine 
  72. ; Prototype for debugger NewThread notification 
  73. ; Prototype for debugger DisposeThread notification 
  74. ; Prototype for debugger schedule notification 
  75. ; Thread Manager routines 
  76.     IF GENERATING68K THEN
  77.         Macro
  78.         _CreateThreadPool
  79.             move.w    #$0501,d0
  80.             dc.w     $ABF2
  81.         EndM
  82.     ELSE
  83.         IMPORT    CreateThreadPool
  84.     ENDIF
  85.  
  86.     IF GENERATING68K THEN
  87.         Macro
  88.         _GetFreeThreadCount
  89.             move.w    #$0402,d0
  90.             dc.w     $ABF2
  91.         EndM
  92.     ELSE
  93.         IMPORT    GetFreeThreadCount
  94.     ENDIF
  95.  
  96.     IF GENERATING68K THEN
  97.         Macro
  98.         _GetSpecificFreeThreadCount
  99.             move.w    #$0615,d0
  100.             dc.w     $ABF2
  101.         EndM
  102.     ELSE
  103.         IMPORT    GetSpecificFreeThreadCount
  104.     ENDIF
  105.  
  106.     IF GENERATING68K THEN
  107.         Macro
  108.         _GetDefaultThreadStackSize
  109.             move.w    #$0413,d0
  110.             dc.w     $ABF2
  111.         EndM
  112.     ELSE
  113.         IMPORT    GetDefaultThreadStackSize
  114.     ENDIF
  115.  
  116.     IF GENERATING68K THEN
  117.         Macro
  118.         _ThreadCurrentStackSpace
  119.             move.w    #$0414,d0
  120.             dc.w     $ABF2
  121.         EndM
  122.     ELSE
  123.         IMPORT    ThreadCurrentStackSpace
  124.     ENDIF
  125.  
  126.     IF GENERATING68K THEN
  127.         Macro
  128.         _NewThread
  129.             move.w    #$0E03,d0
  130.             dc.w     $ABF2
  131.         EndM
  132.     ELSE
  133.         IMPORT    NewThread
  134.     ENDIF
  135.  
  136.     IF GENERATING68K THEN
  137.         Macro
  138.         _DisposeThread
  139.             move.w    #$0504,d0
  140.             dc.w     $ABF2
  141.         EndM
  142.     ELSE
  143.         IMPORT    DisposeThread
  144.     ENDIF
  145.  
  146.     IF GENERATING68K THEN
  147.         Macro
  148.         _YieldToThread
  149.             move.w    #$0205,d0
  150.             dc.w     $ABF2
  151.         EndM
  152.     ELSE
  153.         IMPORT    YieldToThread
  154.     ENDIF
  155.  
  156.     IF GENERATING68K THEN
  157.         Macro
  158.         _YieldToAnyThread
  159.             dc.w     $42A7
  160.             move.w    #$0205,d0
  161.             dc.w     $ABF2
  162.         EndM
  163.     ELSE
  164.         IMPORT    YieldToAnyThread
  165.     ENDIF
  166.  
  167.     IF GENERATING68K THEN
  168.         Macro
  169.         _GetCurrentThread
  170.             move.w    #$0206,d0
  171.             dc.w     $ABF2
  172.         EndM
  173.     ELSE
  174.         IMPORT    GetCurrentThread
  175.     ENDIF
  176.  
  177.     IF GENERATING68K THEN
  178.         Macro
  179.         _GetThreadState
  180.             move.w    #$0407,d0
  181.             dc.w     $ABF2
  182.         EndM
  183.     ELSE
  184.         IMPORT    GetThreadState
  185.     ENDIF
  186.  
  187.     IF GENERATING68K THEN
  188.         Macro
  189.         _SetThreadState
  190.             move.w    #$0508,d0
  191.             dc.w     $ABF2
  192.         EndM
  193.     ELSE
  194.         IMPORT    SetThreadState
  195.     ENDIF
  196.  
  197.     IF GENERATING68K THEN
  198.         Macro
  199.         _SetThreadStateEndCritical
  200.             move.w    #$0512,d0
  201.             dc.w     $ABF2
  202.         EndM
  203.     ELSE
  204.         IMPORT    SetThreadStateEndCritical
  205.     ENDIF
  206.  
  207.     IF GENERATING68K THEN
  208.         Macro
  209.         _SetThreadScheduler
  210.             move.w    #$0209,d0
  211.             dc.w     $ABF2
  212.         EndM
  213.     ELSE
  214.         IMPORT    SetThreadScheduler
  215.     ENDIF
  216.  
  217.     IF GENERATING68K THEN
  218.         Macro
  219.         _SetThreadSwitcher
  220.             move.w    #$070A,d0
  221.             dc.w     $ABF2
  222.         EndM
  223.     ELSE
  224.         IMPORT    SetThreadSwitcher
  225.     ENDIF
  226.  
  227.     IF GENERATING68K THEN
  228.         Macro
  229.         _SetThreadTerminator
  230.             move.w    #$0611,d0
  231.             dc.w     $ABF2
  232.         EndM
  233.     ELSE
  234.         IMPORT    SetThreadTerminator
  235.     ENDIF
  236.  
  237.     IF GENERATING68K THEN
  238.         Macro
  239.         _ThreadBeginCritical
  240.             move.w    #$000B,d0
  241.             dc.w     $ABF2
  242.         EndM
  243.     ELSE
  244.         IMPORT    ThreadBeginCritical
  245.     ENDIF
  246.  
  247.     IF GENERATING68K THEN
  248.         Macro
  249.         _ThreadEndCritical
  250.             move.w    #$000C,d0
  251.             dc.w     $ABF2
  252.         EndM
  253.     ELSE
  254.         IMPORT    ThreadEndCritical
  255.     ENDIF
  256.  
  257.     IF GENERATING68K THEN
  258.         Macro
  259.         _SetDebuggerNotificationProcs
  260.             move.w    #$060D,d0
  261.             dc.w     $ABF2
  262.         EndM
  263.     ELSE
  264.         IMPORT    SetDebuggerNotificationProcs
  265.     ENDIF
  266.  
  267.     IF GENERATING68K THEN
  268.         Macro
  269.         _GetThreadCurrentTaskRef
  270.             move.w    #$020E,d0
  271.             dc.w     $ABF2
  272.         EndM
  273.     ELSE
  274.         IMPORT    GetThreadCurrentTaskRef
  275.     ENDIF
  276.  
  277.     IF GENERATING68K THEN
  278.         Macro
  279.         _GetThreadStateGivenTaskRef
  280.             move.w    #$060F,d0
  281.             dc.w     $ABF2
  282.         EndM
  283.     ELSE
  284.         IMPORT    GetThreadStateGivenTaskRef
  285.     ENDIF
  286.  
  287.     IF GENERATING68K THEN
  288.         Macro
  289.         _SetThreadReadyGivenTaskRef
  290.             move.w    #$0410,d0
  291.             dc.w     $ABF2
  292.         EndM
  293.     ELSE
  294.         IMPORT    SetThreadReadyGivenTaskRef
  295.     ENDIF
  296.  
  297.     ENDIF ; __THREADS__
  298.